Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fontsh13/fontshow.frm

Text File | 1994-03-17 | 29KB | 892 lines

VERSION 2.00
Begin Form Fontshow
   BackColor       =   &H00C0C000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "FontShow 1.3"
   ClientHeight    =   6396
   ClientLeft      =   1848
   ClientTop       =   468
   ClientWidth     =   6960
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "MS Sans Serif"
   FontSize        =   7.8
   FontStrikethru  =   0   'False
   FontUnderline   =   -1  'True
   ForeColor       =   &H00800000&
   Height          =   6816
   Left            =   1800
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6396
   ScaleWidth      =   6960
   Top             =   96
   Width           =   7056
   Begin SSCheck ChkPara
      Caption         =   "&Text Paragraphs"
      ForeColor       =   &H00C00000&
      Height          =   252
      Left            =   3720
      TabIndex        =   12
      Top             =   4080
      Width           =   1692
   End
   Begin SSCheck ChkItalic
      Caption         =   "&Italic"
      ForeColor       =   &H00800080&
      Height          =   252
      Left            =   5760
      TabIndex        =   14
      Top             =   3840
      Width           =   732
   End
   Begin SSCheck ChkBold
      Caption         =   "&Bold"
      ForeColor       =   &H00800080&
      Height          =   252
      Left            =   5760
      TabIndex        =   13
      Top             =   3600
      Width           =   732
   End
   Begin SSCheck ChkFull
      Caption         =   "&Full Page Sample"
      ForeColor       =   &H00C00000&
      Height          =   252
      Left            =   3720
      TabIndex        =   11
      Top             =   3840
      Width           =   1692
   End
   Begin SSCheck ChkChart
      Caption         =   "&Character Chart"
      ForeColor       =   &H00C00000&
      Height          =   252
      Left            =   3720
      TabIndex        =   10
      Top             =   3600
      Width           =   1692
   End
   Begin SSCheck ChkSample
      Caption         =   "&Sample Text"
      ForeColor       =   &H00C00000&
      Height          =   252
      Left            =   3720
      TabIndex        =   9
      Top             =   3360
      Value           =   -1  'True
      Width           =   1452
   End
   Begin SSPanel Panel3D3
      AutoSize        =   3  'AutoSize Child To Panel
      BevelInner      =   1  'Inset
      BorderWidth     =   1
      Height          =   1212
      Left            =   3600
      Outline         =   -1  'True
      TabIndex        =   22
      Top             =   3240
      Width           =   3012
   End
   Begin SSCommand CmdGrid
      Caption         =   "Display Font &Map"
      ForeColor       =   &H00000080&
      Height          =   372
      Left            =   4920
      TabIndex        =   7
      Top             =   2280
      Width           =   1692
   End
   Begin SSCommand CmdHeadFont
      Caption         =   "&Heading Font"
      ForeColor       =   &H00000080&
      Height          =   372
      Left            =   4920
      TabIndex        =   4
      Top             =   840
      Width           =   1692
   End
   Begin SSCommand CmdEdit
      Caption         =   "&Edit Sample Text"
      ForeColor       =   &H00000080&
      Height          =   372
      Left            =   4920
      TabIndex        =   5
      Top             =   1320
      Width           =   1692
   End
   Begin SpinButton SpinSampleSize
      BackColor       =   &H00FFFF80&
      Delay           =   125
      ForeColor       =   &H00000000&
      Height          =   312
      Left            =   6360
      LightColor      =   &H00FFFF80&
      ShadowBackColor =   &H00FFFF80&
      SpinBackColor   =   &H00FFFF80&
      Top             =   4800
      Width           =   252
   End
   Begin SSPanel Panel3D2
      AutoSize        =   3  'AutoSize Child To Panel
      BevelInner      =   1  'Inset
      Caption         =   "Panel3D2"
      Height          =   3984
      Left            =   360
      TabIndex        =   19
      Top             =   480
      Width           =   3012
      Begin ListBox LstFonts
         Height          =   3864
         Left            =   60
         MultiSelect     =   2  'Extended
         Sorted          =   -1  'True
         TabIndex        =   1
         Top             =   60
         Width           =   2892
      End
   End
   Begin SSPanel Panel3D1
      AutoSize        =   3  'AutoSize Child To Panel
      BevelInner      =   1  'Inset
      Caption         =   "Panel3D1"
      Height          =   1092
      Left            =   360
      TabIndex        =   18
      Top             =   5160
      Width           =   6252
      Begin TextBox TxtDispFont
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   972
         Left            =   60
         MultiLine       =   -1  'True
         TabIndex        =   15
         Top             =   60
         Width           =   6132
      End
   End
   Begin TextBox TxtPointSize
      BackColor       =   &H00C0C000&
      Height          =   288
      Left            =   5760
      TabIndex        =   3
      Text            =   "12"
      Top             =   360
      Width           =   612
   End
   Begin SpinButton SpinPointSize
      BackColor       =   &H00FFFF80&
      Delay           =   125
      ForeColor       =   &H00000000&
      Height          =   288
      Left            =   6360
      LightColor      =   &H00FFFF80&
      ShadowBackColor =   &H00FFFF80&
      SpinBackColor   =   &H00FFFF80&
      Top             =   360
      Width           =   252
   End
   Begin SSCommand CmdExit
      Caption         =   "E&xit"
      ForeColor       =   &H000000C0&
      Height          =   612
      Left            =   3600
      TabIndex        =   2
      Top             =   840
      Width           =   972
   End
   Begin SSCommand CmdPrint
      Caption         =   "&Print"
      ForeColor       =   &H00000080&
      Height          =   372
      Left            =   4920
      TabIndex        =   8
      Top             =   2760
      Width           =   1692
   End
   Begin SSCommand CmdSelAll
      Caption         =   "Select &All"
      ForeColor       =   &H00000080&
      Height          =   372
      Left            =   4920
      TabIndex        =   6
      Top             =   1800
      Width           =   1692
   End
   Begin Label LabelFontsSel
      BackColor       =   &H00C0C000&
      Caption         =   "Selected"
      ForeColor       =   &H00000000&
      Height          =   252
      Left            =   2160
      TabIndex        =   23
      Top             =   240
      Width           =   1332
   End
   Begin Label LblHeadingFont
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C000&
      Caption         =   "Heading Font:"
      Height          =   192
      Left            =   360
      TabIndex        =   21
      Top             =   4560
      Width           =   1176
   End
   Begin Label LblSampleSize
      BackColor       =   &H00C0C000&
      Caption         =   "Sample size"
      Height          =   252
      Left            =   5160
      TabIndex        =   20
      Top             =   4920
      Width           =   1128
   End
   Begin Label LblSample
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C000&
      Caption         =   "Sample"
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   360
      TabIndex        =   17
      Top             =   4920
      Width           =   648
   End
   Begin Label LblFonts
      Bac